home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / misc / o-z / pl_2_50 / plan.lha / PLANETARIUM_2.50 (.txt) < prev    next >
GFA-BASIC Amiga  |  1995-06-18  |  48KB  |  581 lines
  1. GFA-AMIGAB
  2. LATITUDE    LONGITUDE
  3. WTIME
  4. PHASE
  5. AVAIL
  6. I3    OFFGADGET
  7. TRUETHEN
  8. PRESET
  9. QUELLBITMAP
  10. SCHLIE
  11. GADGET
  12. WBENCHTOBACK
  13. STUNDE
  14. MINUTE
  15. DATUM
  16. FORMAT
  17. FORMAT1
  18. MONTH
  19. INTERVAL
  20. DELAY    LOCALTIME
  21. LATITUDE    LONGITUDE
  22. WTIME
  23. BUTTONS
  24. Q_ORT
  25. L_SET
  26. T_SET
  27. CHART1
  28. CHART2
  29. NOT_N
  30. NOT_V
  31. T_PLAN
  32. Q_INT
  33. Q_DEL
  34. STARS
  35. CONST
  36. OBJECTS
  37. SUFFIX
  38. TRANS
  39. DAUER
  40. MODUS
  41. MYBUF
  42. INBUF
  43. MOON2
  44. MOON1
  45. GADAUS
  46. UPORT
  47. RASINFO
  48. QUELLBITMAP
  49. ZIELBITMAP
  50. BUFFERX
  51. BUFFERY
  52. TIEFE
  53. HOME1
  54. HOME2
  55. GUEST1
  56. GUEST2
  57. RUECK
  58. CLASS
  59. IWINDOW
  60. WINDOW
  61. USERPORT
  62. IADRESS
  63. IDCMP
  64. IDCMP1
  65. IDCMP_TICKS    WIN_FLAGS
  66. SCREEN
  67. S_TIME
  68. IN_CHART
  69. FOUND
  70. BUFFERFREE
  71. START
  72. LONGI
  73. COPYMEM
  74. MEN2U
  75. POPCHUNK    ZIPWINDOW
  76. PLANE
  77. FSTERN
  78. AVAIL
  79. BUTTON
  80. BUTTONS
  81. ABOUT
  82. PLANE
  83. BGADGET
  84. RANDM
  85. DPLANE
  86. PGADGET
  87. RENDER
  88. PGINFO
  89. COLOR
  90. COLS    PRESETLOC
  91. AVAIL
  92. RESOLUTION
  93. VERTI
  94. MONTH
  95. W_WIDTH
  96. RADIUS
  97. EXTEND
  98. X_DARK
  99. MAUSX
  100. MAUSY
  101. DELAY
  102. INTERVAL
  103. ANZPROP
  104. BREITE
  105. HOEHE
  106. ANZAHL
  107. LEFTEDGE
  108. TOPEDGE
  109. WINDOW
  110. BUFFERX
  111. BUFFERY
  112. HELP_ME
  113. ABOUT
  114. STUNDE
  115. MINUTE
  116. WINDOW
  117. TIEFE
  118. STUNDE
  119. MINUTE
  120. SPRACHE
  121. CONSTELLATIONS
  122. FSTARS
  123. PLANETS
  124. AVAILOBJECTS
  125. ABOUT    COPYRIGHT
  126. CLOSEPROGRAM
  127. TITLESCREEN
  128. START    STARCHART
  129. PLANETARIUM    LOAD_ACBM
  130. SETCOL1
  131. SETCOL2    PRESETLOC
  132. WUENNENBERG
  133. BERLIN
  134. MOSKOW
  135. NEW_YORK
  136. ARCTIC    ANTARCTIC
  137. QUITO
  138. SYSTEMTIME
  139. ABOUT    INITMENU1    CHECKMENU
  140. SETLOC
  141. SETTIME
  142. SHOW_LOC
  143. SETSTIME
  144. GET_NAME
  145. PRINT
  146. BUILDSCREEN    SET_STARS    INITMENU2
  147. FUNCTS
  148. ADAPT
  149. TIMEFUNCTION
  150. EARTHSUNMOON
  151. PLANETS
  152. STARS
  153. REKDEK
  154. PHASE
  155. CHECKPOS
  156. SEARCHNAME
  157. MISTAKE
  158. FOUND
  159. DISPLAY
  160. BLINK
  161. CONSTELLATION
  162. SEARCHSTAR
  163. SETPLANPARAM
  164. ANIMATE    READ_BMHD    READ_CMAP    READ_CAMG    READ_ABIT    STOREDATA    WRITEDATA
  165. DIASHOW
  166. CREATE_GADGETS    MAIN_LOOP
  167. FREE_MEM
  168. BOOLEANGADGET
  169. GET_MESSAGE
  170. BOOLEANGADGETAUS
  171. INV_PLAN_ICON
  172. PROCINV_TELE_ICON
  173. INV_TELE_ICON
  174. MAKEDOUBLEBUFFER
  175. DOUBLEBUFFERON
  176. TRANSMIT
  177. DOUBLEBUFFEROFF
  178. ABORTDOUBLEBUFFER
  179. COPYMEM
  180. ERROR
  181. MFREE
  182. TOGGLE_MODE
  183. ENDCASE
  184. AWAIT_INPUT
  185. MAKE_GADGETS
  186. PROPGADGET
  187. MESSAGEPORT
  188. PROPGADGETABFRAGE
  189. PROPGADGETAUS
  190. CMENU
  191. DECODE
  192. MODULO    ZIPWINDOW
  193. LOCAL_TO_WTIME
  194. READ_PREFS    READ_DATA
  195. READ_STARS
  196. READ_STRINGS
  197. READ_ABOUT
  198. GET_OBJECTS
  199. READ_PRESETLOCS
  200. SAVE_PREFS
  201. GET_SUFFIX
  202. READ_CONST
  203. ROUND
  204. CONST
  205. PLPOS
  206. lm100000
  207.                         ***************************
  208.                         *                         *
  209.                         *  PLANETARIUMSIMULATION  *
  210.                         *       Vers. 2.50        *
  211.                         ***************************
  212. ==============================================================================
  213.                          H A U P T P R O G R A M M
  214. ==============================================================================
  215.  not yet buffering
  216. ==============================================================================
  217.                          P R O G R A M M - M O D U L E
  218. ==============================================================================
  219. planetarium.pic!
  220.  load graphics to screen
  221.  -----------------------------------
  222.  black
  223.  white
  224.  light yellow
  225.  light red
  226.  light blue
  227.  intensif red
  228.  ochre
  229.  dark blue
  230.  -----------------------------------
  231.  dark blue
  232.  intensif red
  233.  light yellow
  234.  white
  235.  white
  236.  gray1
  237.  gray2
  238.  gray3
  239.  -----------------------------------
  240.  ===================================
  241.  pre-set location
  242. F      defaultlanguage=german
  243.      s.o.
  244.  set system-time
  245. F     forces creation of whole screen
  246.  buffering pointers
  247.  Teleskope switched off
  248.  display names on border
  249.  counter for available telescope objects
  250.  Defaultmode starchart
  251.  Defaul Hires Lace
  252.  i1&=number of stars
  253.  maxdim for stars
  254.  i3&=number of constellations
  255.  idcmp%=8+64+512+1024+2+256
  256.  win_flags%=512+1024+2+4+1+8
  257.  Defaultpresets for
  258.  planetarium mode
  259.  80 constellations maximum
  260.  trim strings
  261.  for bmove
  262. ----------------------------------------------------------------
  263. picture of the moon
  264. p_{7`?
  265.  HiRes Lace
  266.  HiRes
  267.  HiRes Lace
  268. read data from disk
  269.  -----------------------------------
  270. S:plan.prefs F
  271. s:plan.prefsF
  272.  -----------------------------------
  273. starneu.dataF
  274.  lateinischer Name des Sternbildes
  275.  counting stars
  276. name,brightness,rektasz.(h),rektasz.(min),deklin.(Grad),deklin.(min)
  277.  Umrechnen von Stunden in Grad
  278. F9! counting constellations
  279. planet.dataF 
  280.  -----------------------------------
  281. bersetzte Namen der Sternbilder einlesen
  282. const.
  283.  -----------------------------------
  284. defstrings.
  285.  get (translated) strings
  286. ENDEMENUF.
  287.      
  288.  insert names of presets in menu
  289.  -----------------------------------
  290. about.
  291.  get (translated) info
  292. endaboutFF
  293.  -----------------------------------
  294. tele JF
  295.  perhaps on harddrive?
  296. assign tele: 
  297. tele!
  298. tele: JF
  299.  perhaps 2. disk or assigned
  300. )list tele: to ram:availobjects lformat %s!
  301. ram:availobjects F
  302. ram:availobjectsF
  303.  get list of pics
  304.  get rid of .pic
  305.  -----------------------------------
  306. preset.dataF*
  307.  -----------------------------------
  308.  special modulo for angles
  309.  -----------------------------------
  310.  -----------------------------------
  311.  -----------------------------------
  312.                         
  313.  -----------------------------------
  314.  -----------------------------------
  315.  set hook
  316.  -----------------------------------
  317.  -----------------------------------
  318. ------------------------------------------------------
  319.        Aufruf der Gadgetroutine
  320. Parameter : x, y, Breite, H
  321. he, ID, WindowNr, Text$
  322. ------------------------------------------------------
  323.  -----------------------------------
  324.  closeprogram
  325.  pre-set locations
  326.  chart or planetarium
  327.  toggle telescope-mode on/off
  328.  MedRes or HiRes
  329.  look for star/constellation
  330.  interrupt planetarium-mode
  331.  hardcopy
  332.  Namen in Karte eintragen
  333.  Sprache w
  334.                         
  335. Shareware!F 
  336.  -----------------------------------
  337.      Deutsch
  338.      English
  339.      Francais
  340.  -----------------------------------
  341. iadress% enth
  342. lt Adresse der Gadgetstruktur
  343.  GADGET UP
  344.  get GADGET ID
  345.  close program
  346.  toggle tele on/off
  347.  toggle planetarium on/off
  348.  closegadget
  349.  -----------------------------------
  350. . ---------------------------------------------FF
  351.              "F
  352.              "F
  353.  -----------------------------------
  354.           "
  355. . ---------------------------------------------FF
  356. . ---------------------------------------------FF
  357. ----------------------------------------------F
  358.  -----------------------------------
  359.  -----------------------------------
  360.  ===================================
  361.  -----------------------------------
  362. Shareware!F 
  363. Friendware!F
  364.  -----------------------------------
  365. -------------------
  366.  -----------------------------------
  367.  secF
  368.  -----------------------------------
  369. ffffg
  370. 33333
  371. Moon:
  372.  -----------------------------------
  373.  screepositions of
  374.  stars
  375.  -----------------------------------
  376. #{g##
  377.    FF
  378. $g,+h
  379.    FF
  380.  screenpositions of
  381.  planets
  382.  -----------------------------------
  383. (  Ff
  384.  -----------------------------------
  385. ------ Stundenwinkel ------
  386. ------ transform coordinates ------
  387. ,  FF
  388.  beneath horizon
  389. .  FF
  390. ------ Gradma
  391.  ------
  392. ---------------------
  393.  -----------------------------------
  394.  white
  395.  black
  396.  black
  397.  black
  398.  black
  399.  ===================================
  400.  -----------------------------------
  401.  days since 1.1.1900
  402. aries:
  403.  -----------------------------------
  404.  -----------------------------------
  405. JF! increasing moon
  406. / wanting moon
  407.  ===================================
  408.  make menuitems available
  409.  set hook
  410.  -----------------------------------
  411.  -----------------------------------
  412.  mousebutton
  413.  pressed
  414.  windowsizing
  415.  message
  416.  menu
  417.  -----------------------------------
  418.  -----------------------------------
  419.  -----------------------------------
  420.  planet found
  421.  star found
  422. blin F
  423. rest F
  424.  constellation found
  425. blin F
  426. rest F
  427.  -----------------------------------
  428. blin F
  429. rest F
  430.  -----------------------------------
  431.  --------------------------
  432. --------
  433.  -----------------------------------
  434. blinF
  435. restF!
  436.  -----------------------------------
  437. JF" look for picture
  438. tele: F
  439. tele:
  440. .pic!
  441.  load graphic to screen
  442.  -----------------------------------
  443.  -----------------------------------
  444.  -----------------------------------
  445.  -----------------------------------
  446.    ERROR !!F
  447.  ===================================
  448.  not to be chosen in planetarium-mode
  449.  get rid of intuiticks
  450.  -----------------------------------
  451.  -----------------------------------
  452.  -----------------------------------
  453.  -----------------------------------
  454. tele: F
  455.  only if starchart
  456.  userportadress
  457. tele:
  458. .pic!
  459.  load graphic to screen
  460.  -----------------------------------
  461. S:plan.prefsF
  462.  -----------------------------------
  463. =========================================================
  464.          *******   GADGETROUTINEN   **********
  465. ---------------------------------------------------------
  466.  noch nicht dimensioniert
  467.               >>  Speicher reservieren  <<
  468.  SPEICHERFEHLER !!!F
  469.                  Randstruktur
  470.  Koordinaten Rand
  471.  LEFT EDGE
  472.  TOP EDGE
  473.  FrontPen
  474.  BackPen
  475.  DrawMode
  476.  COUNT
  477.  Zeiger auf Randkoordinaten
  478.  NextBorder
  479.                 Textstruktur
  480.  LeftEdge f
  481. r Text
  482.  immer mit CHR$(0) abschlie
  483.  FrontPen
  484.  BackPen
  485.  DrawMode
  486. ;F     LeftEdge
  487.  TopEdge
  488.  TextAttr
  489.  text$
  490.  NextText
  491.                GADGETSTRUKTUR
  492.  NextGadget
  493.  linke Ecke
  494.  obere Ecke
  495.  Breite
  496.  Flags
  497.  Activierung GADGIMMIDIATE RELVERIFY
  498.  Typ BOOLGADGET
  499.  Gadget Render Zeiger
  500.  Select Render Zeiger
  501.  Gadget Text Zeiger
  502.  MutualExclude
  503.  SpecialInfo
  504.  GadgetID User defined
  505.  UserData
  506.  Adresse der Windowstruktur
  507.  Gadget in Liste einf
  508.  Gadget aktivieren
  509. ------------------------------------------------------------
  510.  Gadget aus Liste entfernen
  511. =========================================================
  512.       ************  Double Buffered Display  **********
  513. -------------------------------------------------
  514. >  FF
  515. opt%=2                        ! ChipMem reservieren
  516. Keine Zielbitmap!!
  517. weiter!
  518. -------------------------------------------------
  519. -------------------------------------------------
  520. ** Planes besorgen **
  521.      dplane%(loop|)=AllocMem(bufferx&*buffery&/8,3)      ! Chipmem
  522. @ F     schneller
  523. Allocmem Fehler!
  524. weiter!
  525. ** aktives Display in Buffer kopieren
  526. ** Copper-List speichern
  527. ** neue Copper-List erzeugen
  528. ++ Reset
  529. -------------------------------------------------
  530. ** Neue Copper-List aktivieren
  531. -------------------------------------------------
  532. ** Alte Copper-List aktivieren
  533. -------------------------------------------------
  534. ** altes Display in neuen Buffer
  535. -------------------------------------------------
  536. ** altes Display und VPort-Lists herstellen
  537. ** neue VPort-Copperlisten l
  538. schen
  539. ** zweites Set Copper-Listen l
  540. schen
  541. ** BitPlanes und BitMap l
  542. schen
  543. fW:F/
  544. =========================================================
  545. **************    Await_Input f
  546. r Multitasking     *******************
  547.  Adresse der Windowstruktur
  548.  Adresse des Userports
  549.  Auf msg warten
  550.  Zeiger auf msg holen
  551. Werte aus Struktur lesen
  552.  IDCMPFLAGS
  553.  Messagecode
  554.  Gadgetadressen
  555.  F     x-Mausposition
  556.  F     y-Mausposition
  557.  msg in unserem Window ???
  558. =========================================================
  559. !                   programmed by: Rolf K
  560. hr,!    ** FRIENDWARE **            Am S
  561. dhang 21,!    Please register             D33181 W
  562. nnenberg,! Version 2.50 ,
  563.   ----------------------------------- End --------------------------------
  564.       LOAD ACBM :Program to load Amiga-Continues-BitMap
  565. Not enough memory!
  566. ACBMF*
  567. No ILBM file !!
  568. BMHDFF
  569. CMAPFF
  570. CAMGFF
  571. ABITFF
  572. f^$FA
  573.  skip unknown chunk
  574.  Fenster ge
  575. ffnet?
  576.  In Fenster kopieren
  577.  Bitplanes
  578.  Borders ?
  579.  Einlesen
  580.    XF?
  581.